Top 10k strings from Spectrum Markbook (1984)(Mentor Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 N$(N)=" "
6 I;"SORTING PLEASE WAIT":
6 (E(Z)-B(Z)+1
4 X(T)=X(T)+1
4 SMD=SMD+DV*DV
4 Q=E(Z)-B(Z)+I:
4 PE=O);(" TOT%"
4 N$(R(N)+B(Z)-1
4 I;(" "
4 I;"CLASS: ";C$(Z):
4 ;N$(R(N)+B(Z)-1
4 ;N$(R(N))+(" *"
4 ;N$(N)+("*"
4 ;N$(N)+(" *"
4 ;F$(R(N)+B(Z)-1
4 ;F$(R(N));
4 ;"TOTAL TOT%"
4 ;"Press any key":
4 ;"MEAN=";MN;("%"
4 ;"MAX=";(L(Z)
4 ((O(R(N))/K)*100
4 ((O(L)/K)*100
2 marks N
2 ________________________________A
2 X$=X$+" "+
2 X$=X$+" "+
2 V;"7. INITIALISE MARKBOOK"
2 V;"6. SAVE TO TAPE"''
2 V;"5. MAKE ALTERATIONS"''
2 V;"4. ENTER NAMES"''
2 V;"3. ENTER MARKS"''
2 V;"2. CURRENT TOTALS"''
2 V;"1. VIEW MARKS"''
2 V,V;"WHICH CLASS?":
2 V,V;"WHAT IS THE NEW MARK? ":
2 V,O;" HOW MANY PUPILS DO YOU WISH TO HAVE IN THIS MARKBOOK?"
2 V,O;" IN WHICH COLUMN DO YOU WANT THE MARK ENTERED?"
2 V,O;" FIND THE PUPIL'S NUMBER IN THE LIST WHICH FOLLOWS";
2 V,O;" CHOOSE A FREE PUPIL NUMBER FROM THE LIST WHICH FOLLOWS";
2 V+V,V;"DO YOU WANT TO VERIFY?";
2 TT=TT+(U(N)
2 TT=TT+(H(N)
2 TL=TL-C(Z,V(J))
2 TL=TL+C(Z,V(J))
2 T(Q)=T(Q)-M(Q,J):
2 T(Q)=T(Q)+MA:
2 T(N+B(Z)-1
2 T(N)=T(N+I):
2 T(E(Z))=O:
2 SPECTRUM MARKBOOK
2 SE=I)+"ORDER OF MERIT: ";C$(Z):
2 R(ZI)=R(J)
2 Q=Q+B(Z)-1
2 Q$;" ";
2 PE=O)+(H(N)
2 OM=O)+(2120
2 O;"SORTING PLEASE WAIT"
2 O(L)=O(L)+M(N,V(J))
2 NO=E(CLASS)
2 N=B(CLASS)
2 N$(N)=N$(N+I):
2 N$(E(Z))=" ":
2 MARKBOOK OPTIONS
2 M=N-B(Z)+1
2 M(Q,J)=MA:
2 M(N,V(J))=O
2 M(N,J)=M(N+I,J):
2 M(E(Z),J)=O:
2 L=L+C(Z,N):
2 L;" ";N$(N);" ";M(N,Q);("(ABS.)"
2 L;" ";N$(N),
2 I;"SEL.TOTAL CLASS: ";C$(Z):
2 I;"CLASS ";C$(Z);" ":
2 I;"CLASS ";C$(Z);" "
2 I;" SORTING PLEASE WAIT "
2 I;" ENTER MARKS ";C$(Z);" "''
2 I;" CLASS: ";C$(Z):
2 I;" CLASS: ";C$(Z)
2 I;" PLEASE WAIT "
2 I;" CLASS ";Q$;" "
2 I(Q)=I(Q)-(C(Z,J)
2 I(Q)=I(Q)+C(Z,J):
2 I(N)=I(N+I):
2 I(N)=I(N)+X
2 I(E(Z))=O:
2 H(N+B(Z)-1
2 H(N)=H(N+I):
2 H(E(Z))=O:
2 F=F+M(N,G):
2 F$(N)=F$(N+I):
2 F$(E(Z))=" ":
2 END=BEG+16
2 E(Z)-B(Z)<19
2 E(Z)-B(Z)<18
2 E(Z)-B(Z)<16
2 E(CLASS)=NO+Q+4
2 DV=(U(N)-MN
2 DV=(H(N+B(Z)-1
2 CLASS=CLASS+I
2 C$(CLASS)=Q$:
2 BIRD.S BOYDELL.J CLARKE.G CLINNING.A COURBET.C DOBSON.A DORAN.R EVERSON.S GALLAGHER.S GREENE.L HARTIN.D HOBART.C HOYLE.A HUGGINS.J MANTLE.C GITTOES.A CANE B BRAZIER T BRETT D BROWN A DYMOCK S ELLICE K JACQUET J MORGANS J MORGANS S MURGATROYD FNAVIN W TATUM S WAKEFIELD D ROBERTSON E BERRY.S BIDDLES.L BLEASDALE.M BROWNING.N CAMBIDGE.B EDWARDS.I GRAHAM.P HOLT.J LAMBERT.D LUND.E MITCHELL.P MORTON.P OWEN.C HOWITT.H ANDERSON S BELL L BINNS M BROWN L BROWN M CORRIS S DUFFY J ERRINGTON J HINDLE E HINDSON T MAWSON D NORRIS C REEKIE M SHARPE V SMITH K WARBURTON A WARD P DEVINE L APPLEYARD.N BEACH.C CHAMPION.G COATES.S DICKINSON.A ECCLES.I FARMER.L HERMAN.T HODGSON.R PEARSON.K QUINN.S SCHOFIELD.J SYKES.C THACKRAH.C WILKINSON.S ST
2 BEG=B(Z)+19
2 BEG=B(Z)+17
2 BEG=B(Z)+16
2 B(CLASS)=NO+I:
2 =";STD;("%"
2 ;N;". ";C$(N):
2 ;MA;" IN COL. ";J
2 ;"TOTAL%":
2 ;"STAND. DEVIATION="
2 ;"ST.DEV.=";STD;("%"
2 ;"ST. DEV.
2 ;"SELECTIVE TOTAL"
2 ;"REWIND TAPE AND PRESS 'PLAY'"
2 ;"Press y or n"
2 ;"MAX=";TL
2 ;"MAX=";L(Z):
2 ;"If unsure, enter 0"
2 ;"GIVE THE NAME OF THE CLASS"," (3 CHRS)":
2 ;"ENTER A TITLE"
2 ;"ABSENT PUPIL"
2 ;"(Y)es or (N)o"
2 ;"(If unsure, enter 0)":
2 ;"%0-10-20-30-40-50-60-70-80-90+%"
2 ;" WHAT DO YOU WANT TO DO?";
2 ;" WARNING "'''':
2 ;" VERIFIED ":
2 ;" PLEASE WAIT "
2 ;" MAX=";(L(Z)
2 1CL2A22B23A13B24CO
2 1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL 1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL PSCRB RB PGHEM RB PSCPSCPSCPSCPGHPGHPGHPGH RB PGHEM PSCRB PSCPSCPGHEM PSCPGHPGHRB PSCPGHPGHPSCEM AV MAGMAGMAGMAGMAGMAGMAGGRDAV GRDMAGMAGGRDGRDAV AV MAGGRDGRDMAGMAGMAGMAGGRDGRD AF PDCJSDPB PDCJSDJSD PB PB JSDPB PDCJSDAF AF PDCPDCPDCPDCAF PB PB PB AF AF PB PDCAF PDCPB JSDJSD JC JC IW JHTJHTJHTJHTJC JHTIW IW JC JC IW JC IW IW JHT JC IW JC JC JHTIW IW JHTIW SMIPRIPRITOTWHD SEWFORFORBEEBEESMIHINHINPRIPRIPRIQUITOTKIRWHDWHDDIC
2 ,V;"IS THIS CORRECT?";
2 ,V;"4. ESTIMATED MARK FOR";
2 ,V;"3. CHANGE A MARK";
2 ,V;"2. REMOVE A PUPIL";
2 ,V;"1. ADD A PUPIL";
2 ,O;"WHAT ARE THE MARKS OUT OF?":
2 ,O;"PUPILS":
2 ,O;" HOW MANY MARKS DO YOU WANT TO RECORD FOR EACH PUPIL?"
2 ,O;" HOW MANY CLASSES ARE THERE?":
2 ,O;" IN WHICH COLUMN DO YOU WANT THE MARKS ENTERED?"'''';
2 ,O;" HOW MANY PUPILS?":
2 ,I,I,I,I,I,I,I
2 );(" TOT."
2 );( " TOT."
2 )+(T(N+B(Z)-1
2 )+(O(N)-MN
2 ((T(Q)/I(Q))*100
2 ((O(L)/TL)*100
2 ((F/I(N))*100
2 "WHAT IS THE NUMBER? ";Q
2 "WHAT IS THE NAME? ";Q$:
2 "WHAT FORM? ";L$:
2 "POS NAME";
2 "INPUT NAME";N$(N):
2 "INPUT FORM(3CHRS)";F$(N):
2 "ENTER COLUMN No's(0 to exit) ";V(N)
2 " IF YOU CONTINUE WITH THIS OPTION, YOU WILL WIPE OUT ALL DATA FROM MEMORY."'''':
2 " DO YOU WISH TO CONTINUE?"'''" Press (y)es or (n)o"
2 SEL. ORDER OF MERIT
2 ORDER OF MERIT
2 NUMBER TO SORT
2 Jun. 1984 K.W.CLARKE
2 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 l
2
1 oftware
1 marks
1 m
1 Created with Ramsoft MakeTZX
1 ;"Spectrum"
1 ;"SPECTRUM":
1 ;"MARKBOOK"
1 ;" LOADING "
1 ;" LOADING PLEASE WAIT "
1 ;"
1